home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs04.d81 / dcmr.sfx / cnv.disk file4.7 (.txt) next >
Commodore BASIC  |  1990-02-12  |  1KB  |  41 lines
  1. 100 FORI=1TO60:SP$=SP$+" ":NEXT:N2=0:PN=0
  2. 110 DIM PN$(1500)
  3. 120 POKE53280,14:POKE53281,15:PRINT"[147][151]":OPEN15,8,15:GOTO1000
  4. 200 INPUT#15,EN,EM$,ET,ES
  5. 210 IFEN=0THENRETURN
  6. 220 PRINT"ERROR # ";EN;EM$;ET;ES
  7. 230 PRINT#15,"I":RETURN
  8. 1000 PRINT"[147]     DISK CATALOG MANAGER/REPORTER[146]"
  9. 1010 PRINT"CONVERSION PROGRAM TO CONVERT"
  10. 1020 PRINT"  'DISK FILE 4.7.C' FILES."
  11. 1030 PRINT"INSERT DISKETTE TO READ FROM AND"
  12. 1040 PRINT"  ENTER 'DISK FILE 4.7.C' FILE NAME"
  13. 1045 PRINT"  OR END"
  14. 1050 INPUTN$:IFN$="END"THEN1170
  15. 1060 OPEN8,8,8,N$+",S,R":GOSUB200:IFEN<>0THENCLOSE8:GOTO1030
  16. 1070 INPUT#8,N1
  17. 1090 PRINT"TOTAL PROGRAMS[146] ";N1
  18. 1100 PRINT"IS THIS THE FILE YOU WANT (Y/N) ";
  19. 1110 X$="":INPUTX$:IFX$="N"THENCLOSE8:GOTO1030
  20. 1120 IFX$<>"Y"THEN1100
  21. 1150 FORI=1TON1
  22. 1154 N2=N2+1:IFPN<1500THENPN=PN+1:INPUT#8,PN$(PN)
  23. 1155 NEXT
  24. 1160 CLOSE8:PRINT:IFPN<N2THENPRINT"";N2-PN;" ENTRIES OVER 1500 IGNORED!"
  25. 1165 GOTO1030
  26. 1170 NN=PEEK(45)+256*PEEK(46)-096
  27. 1180 SYSNN,PN,PN$(1)
  28. 1300 PRINT"NOW, INSERT DISKETTE TO RECEIVE"
  29. 1310 PRINT"CONVERTED FILE AND ENTER SAVE"
  30. 1320 PRINT"FILE NAME ";:INPUTN$
  31. 1330 OPEN8,8,8,N$+",P,W":GOSUB200:IFEN<>0THENCLOSE8:GOTO1300
  32. 1340 PRINT#8,CHR$(224);CHR$(15);:D$=LEFT$(SP$,18):T$=LEFT$(SP$,60)
  33. 1350 PRINT#8,D$;T$;CHR$(0);CHR$(0);"N";
  34. 1360 FORI=1TO7:PRINT#8,CHR$(0);:NEXT
  35. 1400 PRINT"TOTAL TO WRITE IS ";PN
  36. 1410 FORI=1TOPN:PRINT#8,LEFT$(PN$(I),16);RIGHT$(PN$(I),4);
  37. 1430 CT=CT+1:IFCT=100THENCT=0:C1=C1+100:PRINT"PROGRESS COUNT IS ";C1
  38. 1440 NEXT
  39. 1450 CLOSE8:CLOSE15
  40. 1460 PRINT"...FINISHED":END
  41.